50 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000:FORT=0TO3000:NEXT
60 POKE53280,15:POKE53281,15:POKE646,0
80 SP$=""
100 PRINT"[147]"CHR$(142):Q$=CHR$(13)
110 BR$=" [144]                   "+SP$+SP$+"                   [146] 
120 MR$[178]" STOP"[170]SP$[170]"      MODEL RAILROAD CONVERSIONS    STOP  "[170]SP$[170]"WAIT ":HR$[178]BR$[170]MR$[170]BR$
130 G$[178]" STOP"[170]SP$[170]"        G - LGB - 1/22.5 SCALE      STOP  "[170]SP$[170]"WAIT 
140 O$=" [144]"+SP$+"       O - LIONEL - 1/48 SCALE      [144]  "+SP$+"[146] 
150 S$[178]" STOP"[170]SP$[170]"    S - AMERICAN FLYER - 1/64 SCALE STOP  "[170]SP$[170]"WAIT 
160 H$=" [144]"+SP$+"            HO - 1/87 SCALE         [144]  "+SP$+"[146] 
170 N$[178]" STOP"[170]SP$[170]"            N - 1/120 SCALE         STOP  "[170]SP$[170]"WAIT 
180 Z$=" [144]"+SP$+"            Z - 1/220 SCALE         [144]  "+SP$+"[146] 
190 W$[178]" STOP"[170]SP$[170]"           WEIGHT CONVERSION        STOP  "[170]SP$[170]"WAIT 
200 T$=" [144]"+SP$+"           GRADE CALCULATION        [144]  "+SP$+"[146] 
210 GC[178].5:OC[178].25:SC[178].188:HC[178].138:NC[178].075:ZC[178].055:GD$[178]"WHAT IS THE % OF GRADE
220 HT$="RISE HEIGHT [ IN INCHES ]":LT$="LENGTH OF GRADE [ IN FEET ]
230 MT$[178]"      MINIMUM TURNOUT - # 6":TK$[178]"TRACK CENTER DISTANCE - 
240 RA$="       MINIMUM RADIUS - ":RC$="           RECOMENDED - 
250 PR$[178]"            PROTOTYPE - ":TH$[178]"   OVERHEAD CLEARANCE - 
260 SA$=" SCALE TRACK AND RAIL DATA (MIN)":OU$=" OUNCE":OZ$=" OUNCES
270 IN$[178]" INCH     ":IM$[178]" INCH MIN":UP$[178]"ONONONONONONONONONON":SK$[178]SA$[170]Q$[170]TK$
280 IH$[178]IM$[170]Q$[170]TH$:IA$[178]IM$[170]Q$[170]RA$:IC$[178]IN$[170]Q$[170]RC$:IR$[178]IN$[170]Q$[170]PR$:IT$[178]IN$[170]Q$[170]MT$
290 CW$[178]" CAR WEIGHT IN OUNCES - ":CL$[178]Q$[170]" PLUS 1/2 OZ FOR EACH INCH OF CAR LENGTH
300 CM$=Q$+" PLUS 1/4 OZ FOR EACH INCH OF CAR LENGTH
310 CO$[178]Q$[170]" PLUS 1 OZ FOR EACH INCH OF CAR LENGTH":ND$[178]"NO DATA YET
320 S2$="O":S3$="S":S4$="HO":S5$="N
360 [153]"LOAD"HR$Q$"   SELECT"Q$"   1) G  - LGB - SCALE FEET"Q$
370 [153]"   2) O  - LIONEL - SCALE FEET"Q$"   3) S  - AMERICAN FLYER - SCALE FEET"Q$
380 [153]"   4) HO - SCALE FEET"Q$"   5) N  - SCALE FEET"Q$"   6) Z  - SCALE FEET"Q$
390 [153]"   7) WEIGHT CONVERSION"Q$"   8) GRADE CALCULATION"Q$"   9)  QUIT WAIT
400 GETR$:IFR$=""THEN400
410 R=VAL(R$)
420 ONRGOTO440,450,460,470,480,490,500,1310,1600
430 GOTO400
440 TL$=BR$+G$+BR$:CV=GC:GOTO540
450 TL$=BR$+O$+BR$:CV=OC:GOTO540
460 TL$=BR$+S$+BR$:CV=SC:GOTO540
470 TL$=BR$+H$+BR$:CV=HC:GOTO540
480 TL$=BR$+N$+BR$:CV=NC:GOTO540
490 TL$=BR$+Z$+BR$:CV=ZC:GOTO540
500 TL$=BR$+W$+BR$:GOTO820
540 PRINT"[147][145]"TL$Q$" SELECT TYPE CONVERSION"Q$" 1) FULL SIZE TO SCALE [ IN FEET ]"Q$
550 PRINT" 2) SCALE TO FULL SIZE [ IN INCHES ]"Q$" 3)  RETURN TO MAIN MENU "Q$
560 PRINT"  PRESS[146]  _  FOR RAIL DATA"Q$
570 GETA$:IFA$=""THEN570
580 IFA$="_"ORA$="^"ORA$="="THENONRGOSUB1790,1670,1700,1730,1760,1790:GOTO540
590 IFA$="3"ORA$=CHR$(13)THEN360
600 A=VAL(A$):IFA<1ORA>3THEN570
610 UN$="":INPUT"UNIT:";UN$:UN=VAL(UN$):IFUN=0THEN540
620 IFA=1THENVN$="FEET
630 [139]A[178]1[175]UN[178]1[167]VN$[178]"FOOT
640 IFA=2THENVN$="INCHES
650 [139]A[178]2[175]UN[178]1[167]VN$[178]"INCH
660 PRINT"[145]"TAB(((30+LEN(UN$))/2)-3)VN$:PRINTQ$"CONVERTED IT'S:
670 [145]A[137]680,720
680 AM[178]CV[172]UN:IO$[178]"  INCHES WAIT OR":FE$[178]"  FEET WAIT":[139]AM[178]1[167]IO$[178]"  INCH WAIT OR
690 FT=AM/12:AM$=STR$(AM):FT$=STR$(FT)
700 IFAM<.01THENPRINT"TOO SMALL FOR PROPER CALCULATION[146]":FORX=1TO1750:NEXT:GOTO540
710 PRINTQ$LEFT$(AM$,7);IO$LEFT$(FT$,6);FE$:GOTO760
720 AM=UN/CV:FE$="  FEET [146] OR":IO$="  INCHES [146]":IFAM=1THENFE$="  FOOT [146]
730 [139]AM[179].01[167][153]"TOO SMALL FOR PROPER CALCULATIONWAIT":[129]X[178]1[164]1750:[130]:[137]540
740 FT[178]AM[172]12:AM$[178][196](AM):FT$[178][196](FT)
750 [153]Q$[200](AM$,7);FE$Q$""[200](FT$,6);IO$
760 [153]"        PRESS ANY KEY TO CONTINUE WAIT
770 GETA$:IFA$=""THEN770
780 GOTO540
820 PRINT"[147]"TL$Q$" SELECT TYPE CONVERSION"Q$" 1) CAR WEIGHT VS LENGTH"Q$
830 PRINT" 2) GRAMS TO OUNCES"Q$
840 PRINT" 3) OUNCES TO GRAMS"Q$" 4)  RETURN TO MAIN MENU "Q$
850 GETA$:IFA$=""THEN850
860 IFA$="4"ORA$=CHR$(13)THEN360
870 A=VAL(A$):IFA<1ORA>4THEN850
880 IFA<>1THEN1200
890 OZ$=" OUNCES":GM$=" GRAMS":R=0:R$="
900 [153]"LOADSELECT SCALE"Q$"   1) G  - LGB - "Q$"   2) O  - LIONEL - 
910 PRINT"   3) S  - AMERICAN FLYER -"Q$"   4) HO - "Q$"   5) N  - "Q$
920 PRINT"   6) Z  - "Q$"   _)  GO BACK TO PREVIOUS MENU [146]"Q$
930 IFR=6ORR=1THEN950
940 IFR>0THEN960
950 GETR$:IFR$=""THEN950
960 R=VAL(R$):O2=5:S3=2:H4=1:N5=.5
970 IFR<1ORR>6THENGOTO820
980 IFR=2THENSU$=S2$:GOTO1040
990 IFR=3THENSU$=S3$:GOTO1040
1000 IFR=4THENSU$=S4$:GOTO1040
1010 IFR=5THENSU$=S5$:GOTO1040
1020 IFR=1ORR=6THENPRINT""ND$" PRESS ANY KEY TO CONTINUE: [146]":GOSUB1810
1030 GOTO900
1040 CL=0:CL$="":PRINT"LENGTH OF  "SU$;:INPUT" [146] CAR [IN INCHES]";CL$
1050 IFCL$="_"THEN820
1060 CL=VAL(CL$):IFCL=0THEN900
1070 IFR=2THENTW=CL*1+O2:GOTO1110
1080 IFR=3THENTW=CL*.5+S3:GOTO1110
1090 IFR=4THENTW=CL*.5+H4:GOTO1110
1100 IFR=5THENTW=CL*.25+N5:GOTO1110
1110 WG=TW*28.35
1120 PRINT""TW;OZ$" OR ";WG;GM$
1130 LL$="       [164][164][164][164][164][164][164][164][164][164][164][164]              
1140 [153]LL$Q$" PRESS  - RETURN - WAIT TO RECALCULATE 
1150 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
1160 [153]" PRESS ANY KEY TO RETURN TO MAIN MENU 
1170 GETX$:IFX$=""THEN1170
1180 IFX$=CHR$(13)THEN900
1190 GOTO820
1200 UN$="":INPUT"UNIT:";UN$:UN=VAL(UN$):IFUN=0THEN820
1210 IFA=2ANDUN=1THENGM$="GRAM":GOTO1230
1220 IFA=3ANDUN=1THENOZ$=OU$
1230 PRINT"CONVERTED":ONAGOTO820,1240,1250
1240 AM=.0353*UN:PRINTQ$UN;GM$" ="AM;OZ$:GOTO1270
1250 AM=28.35*UN:IFAM=<1THENGM$="GRAM
1260 [153]Q$UN;OZ$" ="AM" "GM$
1270 [153]" PRESS ANY KEY TO CONTINUE: WAIT
1280 GETA$:IFA$=""THEN1280
1290 GOTO820
1310 REM
1330 PRINT"[147]"BR$+T$+BR$:LG=0:RH=0
1340 PRINT"[145]"Q$" SELECT TYPE CONVERSION"Q$" 1) FIND % OF GRADE"Q$
1350 PRINT" 2) FIND LENGTH OF GRADE"Q$" 3) FIND RISE HEIGHT"Q$
1360 PRINT" 4)  RETURN TO MAIN MENU [146]
1370 [161]A$:[139]A$[178]""[167]1370
1380 A[178][197](A$):[145]A[137]1400,1450,1470,360
1390 [137]360
1400 [153]LT$;:[133]LG:[153]HT$;:[133]RH:[139]RH[178]0[176]LG[178]0[167]1330
1410 GC[178]RH[173](LG[172]12)[172]100:GC$[178][196](GC):[139]GC[179].010[167][137]1440
1420 [139]GC[177]50[167][153]"MORE THAN 50% GRADEWAIT":[129]T[178]1[164]1750:[130]:[137]1330
1430 [153]""[200](GC$,5)[170][199](37)[170]" GRADE":[137]1520
1440 [153]"LESS THAN .010 % GRADEWAIT":[129]T[178]1[164]1750:[130]:[137]1330
1450 [153]GD$;:[133]GC:[153]HT$;:[133]RH:[139]GC[178]0[176]RH[178]0[167]1330
1460 LG[178](RH[172]100)[173]GC[173]12:LG$[178][196](LG):[153]""[200](LG$,5)" FEET":[137]1520
1470 [153]GD$;:[133]GC:[153]LT$;:[133]LG:[139]GC[178]0[176]LG[178]0[167]1330
1480 RH[178](LG[172]12)[172](GC[173]100):RH$[178][196](RH)
1490 [139]RH[179]12[167][153]""[200](RH$,5)" INCHES":[137]1520
1500 [139]RH[177]12[167]RF[178]RH[173]12:RF$[178][196](RF)
1510 [153]""[200](RH$,5)" INCHES OR "[200](RF$,5)" FEET
1520 LL$="       [164][164][164][164][164][164][164][164][164][164][164][164]              
1530 [153]LL$Q$" PRESS  - RETURN - WAIT TO RECALCULATE 
1540 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
1550 [153]" PRESS ANY KEY TO RETURN TO MAIN MENU 
1560 GETX$:IFX$=""THEN1560
1570 IFX$=CHR$(13)THEN1330
1580 GOTO360
1600 GOTO40000
1670 PRINTUP$"O"SK$" 5"IH$" 5 1/2"IA$"36"IC$"48"IR$"60"IT$
1680 PRINTQ$CW$"5"OZ$Q$CO$
1690 GOSUB1810:RETURN
1700 PRINTUP$"S"SK$" 3 3/4"IH$" 4 1/8"IA$"27"IC$"36"IR$"45"IT$
1710 PRINTQ$CW$"2 "OZ$Q$CL$
1720 GOSUB1810:RETURN
1730 PRINTUP$"HO"SK$" 2 1/2"IH$" 3"IM$" "Q$RA$"18"IC$"24"IR$"30"IT$
1740 PRINTQ$CW$"1"OU$Q$CL$
1750 GOSUB1810:RETURN
1760 PRINTUP$"N"SK$" 1 1/2"IH$" 1 1/2"IA$" 9"IC$"12"IR$"15"IT$
1770 PRINTQ$CW$"1/2"OU$Q$CM$
1780 GOSUB1810:RETURN
1790 PRINT""ND$
1800 GOSUB1810:RETURN
1810 GETA$:IFA$=""THEN1810
1820 RETURN
10000 D=PEEK(186):N$="B.RR CONVERT":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147][144]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]
60030 Z$(0)[178]"(null)(null)STR$VAL(null) (null)ATNRIGHT$(null)(null)(null)ATNSTR$ LEN(null)(null)(null)VAL(null)(null)VAL(null)":Z$(1)[178]"BY (null)OBERT LEFT$ARTLE
60040 Z$(2)="([195]) 1995 BY [202] & [198] [208]UBLISHING, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF MID$ & ASC (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN.
60080 Z$(6)[178]"1-800-594-3370 OR 1-318-221-8718"
60090 [151]214,12:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]